home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / ambos / AmBoS_V2_74.lha / AmBoS_Install / Install_AmBoS < prev    next >
Text File  |  1995-11-23  |  3KB  |  135 lines
  1. (user 2)
  2. (set MainPath        "BBS:")
  3. (set SourcePath        "AmBoS")
  4.  
  5. (set destpath
  6.     (askdir
  7.         (prompt "Wo soll das AmBoS-Verzeichnis erzeugt werden ?")
  8.         (help "In das von Ihnen gewählte Verzeichnis wird das AmBoS-Demo kopiert. Es wird ein Icon für das Verzeichnis erzeugt")
  9.         (default "work:")
  10.     )
  11. )
  12.  
  13. (set @default-dest
  14.     (tackon destpath "AmBoS")
  15. )
  16.  
  17. (set result
  18.     (makedir @default-dest
  19.         (prompt "Erzeuge AmBoS-Verzeichnis...")
  20.         (safe)
  21.     )
  22. )
  23.  
  24. (set result
  25.     (copyfiles
  26.         (prompt "Kopiere AmBoS-Files...")
  27.         (help "Es werden nun die AmBoS-File kopiert")
  28.         (source SourcePath)
  29.         (dest @default-dest)
  30.         (all)
  31.         (infos)
  32.         (optional fail)
  33.         (safe)
  34.     )
  35. )
  36.  
  37. (set result
  38.     (copyfiles
  39.         (prompt "Kopiere AmBoS-Files...")
  40.         (help "Es werden nun die AmBoS-File kopiert")
  41.         (source "AmBoS.info")
  42.         (dest destpath)
  43.         (safe)
  44.     )
  45. )
  46.  
  47. (set result
  48.     (copyfiles
  49.         (prompt "Kopiere Libraries...")
  50.         (help "Es werden nun die AmBoS-Libraries kopiert")
  51.         (source "libs")
  52.         (dest "libs:")
  53.                 (all)
  54.         (optional fail)
  55.         (safe)
  56.     )
  57. )
  58.  
  59. (set result
  60.     (copyfiles
  61.         (prompt "Kopiere Fonts...")
  62.         (help "Es werden nun die AmBoS-Fonts kopiert")
  63.         (source "fonts")
  64.         (dest "fonts:")
  65.         (all)
  66.         (infos)
  67.         (optional fail)
  68.         (safe)
  69.     )
  70. )
  71.  
  72. (set result
  73.     (copyfiles
  74.         (prompt "Kopiere Catalogs...")
  75.         (help "Es werden nun die AmBoS-Catalogs kopiert")
  76.         (source "Locale")
  77.         (dest "Locale:")
  78.         (all)
  79.         (infos)
  80.         (optional fail)
  81.         (safe)
  82.     )
  83. )
  84.  
  85. (set forstartup ("assign bbs: \"%s\"" @default-dest))
  86.  
  87. (set result
  88.     (startup "AmBoS-Hauptprogramm"
  89.         (prompt "Es wird das BBS-Assign in Ihre User-Startup eingefügt")
  90.         (help "Das Assign wird von AmBoS benötigt, um die nötigen Datenfiles zu finden")
  91.         (command forstartup)
  92.     )
  93. )
  94. (makeassign "bbs" @default-dest)
  95.  
  96. (set result
  97.     (askbool
  98.         (default 1)
  99.         (prompt "AmBoS macht von allen Datenfiles ein Backup. Dazu muß allerdings das Assign 'backup:' eingerichtet sein. Soll dieses Assign in Ihre User-Startup einfügt werden ?")
  100.         (help "Dieses Assign benötigt AmBoS um Backups von den Systemdaten zu machen")
  101.         (choices "Ja" "Nein")
  102.     )
  103. )
  104.  
  105. (if result
  106.     (
  107.         (set destpath
  108.             (askdir
  109.                 (prompt "Wo soll das Backup-Verzeichnis erzeugt werden ?")
  110.                 (help "In das von Ihnen gewählte Verzeichnis werden die backups der Systemdaten gemacht. Es sollte ein Verzeichnis auf einer Partition ungleich der BBS-Partition gewählte werden.")
  111.                 (default "data:")
  112.             )
  113.         )
  114.         (set backuppath
  115.             (tackon destpath "Backup")
  116.         )
  117.         (set result
  118.             (makedir backuppath
  119.                 (prompt "Erzeuge backup-Verzeichnis...")
  120.                 (infos)
  121.                 (safe)
  122.             )
  123.         )
  124.         (set backupassign ("assign backup: \"%s\"" backuppath))
  125.         (set result
  126.             (startup "AmBoS-Backupverzeichnis"
  127.                 (prompt "Es wird das Backup-Assign in Ihre User-Startup eingefügt")
  128.                 (help "Das Assign wird von AmBoS benötigt, um backups von den Datenfiles zu machen.")
  129.                 (command backupassign)
  130.             )
  131.         )
  132.         (makeassign "backup" backuppath)
  133.     )
  134. )
  135.